home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boot Disc 4
/
boot-disc-1996-12.iso
/
Apps
/
Cakewalk
/
PROAUD5
/
AD.1
/
Minor Chord.cal
< prev
next >
Wrap
Text File
|
1996-06-18
|
545b
|
28 lines
;; Minor Chord.cal
;;
;; Treats each note as the root of a minor chord, and creates that chord:
;; For each note event, adds two note events with same time, vel, and dur
;; but a minor third and a perfect fifth higher.
;;
(do
(include "need20.cal") ; Require version 2.0 or higher of CAL
(forEachEvent
(if (== Event.Kind NOTE)
(do
(insert Event.Time Event.Chan NOTE (+ Note.Key 3) Note.Vel Note.Dur)
(insert Event.Time Event.Chan NOTE (+ Note.Key 7) Note.Vel Note.Dur)
)
)
)
)